home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / NCTAudioEditor2 ActiveX DLL / NCTAudioEditor2.exe / {app} / Samples / TestVBAudioEditor2 / frmSetup.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-07  |  43.3 KB  |  1,144 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  3. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  4. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
  5. Begin VB.Form frmSetup 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "Setup"
  8.    ClientHeight    =   3345
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   5775
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3345
  16.    ScaleWidth      =   5775
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin TabDlg.SSTab SSTab1 
  20.       Height          =   3240
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       Top             =   45
  24.       Width           =   5805
  25.       _ExtentX        =   10239
  26.       _ExtentY        =   5715
  27.       _Version        =   393216
  28.       Style           =   1
  29.       Tabs            =   5
  30.       Tab             =   4
  31.       TabsPerRow      =   5
  32.       TabHeight       =   529
  33.       TabCaption(0)   =   "System"
  34.       TabPicture(0)   =   "frmSetup.frx":0000
  35.       Tab(0).ControlEnabled=   0   'False
  36.       Tab(0).Control(0)=   "Label4"
  37.       Tab(0).Control(1)=   "udUR"
  38.       Tab(0).Control(2)=   "Frame3"
  39.       Tab(0).Control(3)=   "chExtraInfo"
  40.       Tab(0).Control(4)=   "tUR"
  41.       Tab(0).Control(5)=   "Frame2"
  42.       Tab(0).ControlCount=   6
  43.       TabCaption(1)   =   "Scales"
  44.       TabPicture(1)   =   "frmSetup.frx":001C
  45.       Tab(1).ControlEnabled=   0   'False
  46.       Tab(1).Control(0)=   "Frame11"
  47.       Tab(1).Control(1)=   "Frame1"
  48.       Tab(1).Control(2)=   "Frame4"
  49.       Tab(1).Control(3)=   "Frame5"
  50.       Tab(1).ControlCount=   4
  51.       TabCaption(2)   =   "Colors"
  52.       TabPicture(2)   =   "frmSetup.frx":0038
  53.       Tab(2).ControlEnabled=   0   'False
  54.       Tab(2).Control(0)=   "lstColors"
  55.       Tab(2).Control(1)=   "cmdColorChoice"
  56.       Tab(2).Control(2)=   "Color"
  57.       Tab(2).ControlCount=   3
  58.       TabCaption(3)   =   "Data"
  59.       TabPicture(3)   =   "frmSetup.frx":0054
  60.       Tab(3).ControlEnabled=   0   'False
  61.       Tab(3).Control(0)=   "udSmooth"
  62.       Tab(3).Control(1)=   "tSmooth"
  63.       Tab(3).Control(2)=   "chSmooth"
  64.       Tab(3).Control(3)=   "Label6"
  65.       Tab(3).Control(4)=   "Label5"
  66.       Tab(3).ControlCount=   5
  67.       TabCaption(4)   =   "Recording"
  68.       TabPicture(4)   =   "frmSetup.frx":0070
  69.       Tab(4).ControlEnabled=   -1  'True
  70.       Tab(4).Control(0)=   "Frame7"
  71.       Tab(4).Control(0).Enabled=   0   'False
  72.       Tab(4).Control(1)=   "Frame8"
  73.       Tab(4).Control(1).Enabled=   0   'False
  74.       Tab(4).Control(2)=   "Frame6"
  75.       Tab(4).Control(2).Enabled=   0   'False
  76.       Tab(4).ControlCount=   3
  77.       Begin VB.Frame Frame11 
  78.          Caption         =   "Markers"
  79.          Height          =   870
  80.          Left            =   -72060
  81.          TabIndex        =   72
  82.          Top             =   2205
  83.          Width           =   2685
  84.          Begin VB.CheckBox chMB 
  85.             Caption         =   "Bar Enabled"
  86.             Height          =   285
  87.             Left            =   180
  88.             TabIndex        =   74
  89.             Top             =   240
  90.             Width           =   1755
  91.          End
  92.          Begin VB.CheckBox chMS 
  93.             Caption         =   "Background Enabled"
  94.             Height          =   285
  95.             Left            =   180
  96.             TabIndex        =   73
  97.             Top             =   480
  98.             Width           =   2415
  99.          End
  100.       End
  101.       Begin VB.Frame Frame6 
  102.          Caption         =   "Visualization Type"
  103.          Height          =   705
  104.          Left            =   3420
  105.          TabIndex        =   69
  106.          Top             =   2205
  107.          Width           =   2265
  108.          Begin VB.OptionButton opRecVisType 
  109.             Caption         =   "Type 1"
  110.             Height          =   240
  111.             Index           =   1
  112.             Left            =   180
  113.             TabIndex        =   71
  114.             Top             =   315
  115.             Value           =   -1  'True
  116.             Width           =   975
  117.          End
  118.          Begin VB.OptionButton opRecVisType 
  119.             Caption         =   "Type 2"
  120.             Height          =   240
  121.             Index           =   2
  122.             Left            =   1260
  123.             TabIndex        =   70
  124.             Top             =   315
  125.             Width           =   885
  126.          End
  127.       End
  128.       Begin VB.Frame Frame2 
  129.          Caption         =   "Play/Record Buffer"
  130.          Height          =   735
  131.          Left            =   -74865
  132.          TabIndex        =   37
  133.          Top             =   450
  134.          Width           =   5505
  135.          Begin VB.TextBox tPRt 
  136.             Alignment       =   1  'Right Justify
  137.             Height          =   285
  138.             Left            =   4470
  139.             TabIndex        =   40
  140.             Text            =   "0"
  141.             Top             =   300
  142.             Width           =   555
  143.          End
  144.          Begin VB.TextBox tPRc 
  145.             Alignment       =   1  'Right Justify
  146.             Height          =   285
  147.             Left            =   2610
  148.             TabIndex        =   39
  149.             Text            =   "0"
  150.             Top             =   300
  151.             Width           =   555
  152.          End
  153.          Begin VB.TextBox tPR 
  154.             Alignment       =   1  'Right Justify
  155.             Height          =   255
  156.             Left            =   1320
  157.             TabIndex        =   38
  158.             Text            =   "0"
  159.             Top             =   300
  160.             Width           =   555
  161.          End
  162.          Begin VB.Label Label7 
  163.             Caption         =   "ms"
  164.             Height          =   255
  165.             Left            =   5100
  166.             TabIndex        =   44
  167.             Top             =   330
  168.             Width           =   345
  169.          End
  170.          Begin VB.Label Label3 
  171.             Caption         =   "buffers, with tick"
  172.             Height          =   255
  173.             Left            =   3240
  174.             TabIndex        =   43
  175.             Top             =   330
  176.             Width           =   1245
  177.          End
  178.          Begin VB.Label Label2 
  179.             Caption         =   "ms, using"
  180.             Height          =   255
  181.             Left            =   1920
  182.             TabIndex        =   42
  183.             Top             =   330
  184.             Width           =   825
  185.          End
  186.          Begin VB.Label Label1 
  187.             Caption         =   "Total Buffer Size"
  188.             Height          =   255
  189.             Left            =   90
  190.             TabIndex        =   41
  191.             Top             =   330
  192.             Width           =   1275
  193.          End
  194.       End
  195.       Begin MSComCtl2.UpDown udSmooth 
  196.          Height          =   315
  197.          Left            =   -72480
  198.          TabIndex        =   36
  199.          Top             =   1275
  200.          Width           =   255
  201.          _ExtentX        =   450
  202.          _ExtentY        =   556
  203.          _Version        =   393216
  204.          Value           =   50
  205.          BuddyControl    =   "tSmooth"
  206.          BuddyDispid     =   196646
  207.          OrigLeft        =   2610
  208.          OrigTop         =   1260
  209.          OrigRight       =   2865
  210.          OrigBottom      =   1590
  211.          Max             =   100
  212.          Min             =   5
  213.          SyncBuddy       =   -1  'True
  214.          Wrap            =   -1  'True
  215.          BuddyProperty   =   65547
  216.          Enabled         =   -1  'True
  217.       End
  218.       Begin VB.TextBox tUR 
  219.          Alignment       =   1  'Right Justify
  220.          Height          =   315
  221.          Left            =   -73380
  222.          Locked          =   -1  'True
  223.          TabIndex        =   34
  224.          Text            =   "0"
  225.          Top             =   2295
  226.          Width           =   450
  227.       End
  228.       Begin VB.CheckBox chExtraInfo 
  229.          Caption         =   "Save Extra Non-Audio Inforamtion"
  230.          Height          =   225
  231.          Left            =   -72165
  232.          TabIndex        =   33
  233.          Top             =   2700
  234.          Width           =   2760
  235.       End
  236.       Begin VB.Frame Frame3 
  237.          Caption         =   "Tempory Directory"
  238.          Height          =   795
  239.          Left            =   -74865
  240.          TabIndex        =   30
  241.          Top             =   1260
  242.          Width           =   5505
  243.          Begin VB.TextBox tDir 
  244.             Height          =   345
  245.             Left            =   120
  246.             TabIndex        =   31
  247.             Top             =   270
  248.             Width           =   5295
  249.          End
  250.       End
  251.       Begin VB.Frame Frame8 
  252.          Caption         =   "Accu Control"
  253.          Height          =   2445
  254.          Left            =   135
  255.          TabIndex        =   29
  256.          Top             =   465
  257.          Width           =   3165
  258.          Begin VB.Frame Frame10 
  259.             Caption         =   "Release"
  260.             Height          =   1275
  261.             Left            =   1620
  262.             TabIndex        =   47
  263.             Top             =   765
  264.             Width           =   1455
  265.             Begin VB.TextBox txtRTime 
  266.                Height          =   285
  267.                Left            =   540
  268.                Locked          =   -1  'True
  269.                TabIndex        =   55
  270.                Top             =   315
  271.                Width           =   570
  272.             End
  273.             Begin VB.TextBox txtRLevel 
  274.                Height          =   285
  275.                Left            =   540
  276.                Locked          =   -1  'True
  277.                TabIndex        =   54
  278.                Top             =   765
  279.                Width           =   570
  280.             End
  281.             Begin MSComCtl2.UpDown udRTime 
  282.                Height          =   285
  283.                Left            =   1125
  284.                TabIndex        =   58
  285.                Top             =   315
  286.                Width           =   255
  287.                _ExtentX        =   450
  288.                _ExtentY        =   503
  289.                _Version        =   393216
  290.                Value           =   10
  291.                BuddyControl    =   "txtRTime"
  292.                BuddyDispid     =   196628
  293.                OrigLeft        =   1125
  294.                OrigTop         =   315
  295.                OrigRight       =   1380
  296.                OrigBottom      =   645
  297.                Max             =   10000
  298.                Min             =   10
  299.                SyncBuddy       =   -1  'True
  300.                Wrap            =   -1  'True
  301.                BuddyProperty   =   65547
  302.                Enabled         =   -1  'True
  303.             End
  304.             Begin MSComCtl2.UpDown udRLevel 
  305.                Height          =   285
  306.                Left            =   1125
  307.                TabIndex        =   59
  308.                Top             =   765
  309.                Width           =   255
  310.                _ExtentX        =   450
  311.                _ExtentY        =   503
  312.                _Version        =   393216
  313.                BuddyControl    =   "txtRLevel"
  314.                BuddyDispid     =   196629
  315.                OrigLeft        =   1125
  316.                OrigTop         =   720
  317.                OrigRight       =   1380
  318.                OrigBottom      =   1050
  319.                Max             =   0
  320.                Min             =   -90
  321.                SyncBuddy       =   -1  'True
  322.                Wrap            =   -1  'True
  323.                BuddyProperty   =   65547
  324.                Enabled         =   -1  'True
  325.             End
  326.             Begin VB.Label Label12 
  327.                Caption         =   "Level:"
  328.                Height          =   240
  329.                Left            =   45
  330.                TabIndex        =   51
  331.                Top             =   810
  332.                Width           =   510
  333.             End
  334.             Begin VB.Label Label11 
  335.                Caption         =   "Time:"
  336.                Height          =   240
  337.                Left            =   45
  338.                TabIndex        =   50
  339.                Top             =   360
  340.                Width           =   510
  341.             End
  342.          End
  343.          Begin VB.Frame Frame9 
  344.             Caption         =   "Attack"
  345.             Height          =   1275
  346.             Left            =   90
  347.             TabIndex        =   46
  348.             Top             =   765
  349.             Width           =   1455
  350.             Begin MSComCtl2.UpDown udATime 
  351.                Height          =   285
  352.                Left            =   1125
  353.                TabIndex        =   56
  354.                Top             =   315
  355.                Width           =   255
  356.                _ExtentX        =   450
  357.                _ExtentY        =   503
  358.                _Version        =   393216
  359.                Value           =   10
  360.                BuddyControl    =   "txtATime"
  361.                BuddyDispid     =   196634
  362.                OrigLeft        =   1125
  363.                OrigTop         =   315
  364.                OrigRight       =   1380
  365.                OrigBottom      =   645
  366.                Max             =   5000
  367.                Min             =   10
  368.                SyncBuddy       =   -1  'True
  369.                Wrap            =   -1  'True
  370.                BuddyProperty   =   65547
  371.                Enabled         =   -1  'True
  372.             End
  373.             Begin VB.TextBox txtALevel 
  374.                Height          =   285
  375.                Left            =   540
  376.                Locked          =   -1  'True
  377.                TabIndex        =   53
  378.                Top             =   765
  379.                Width           =   570
  380.             End
  381.             Begin VB.TextBox txtATime 
  382.                Height          =   285
  383.                Left            =   540
  384.                Locked          =   -1  'True
  385.                TabIndex        =   52
  386.                Top             =   315
  387.                Width           =   570
  388.             End
  389.             Begin MSComCtl2.UpDown udALevel 
  390.                Height          =   285
  391.                Left            =   1125
  392.                TabIndex        =   57
  393.                Top             =   765
  394.                Width           =   255
  395.                _ExtentX        =   450
  396.                _ExtentY        =   503
  397.                _Version        =   393216
  398.                BuddyControl    =   "txtALevel"
  399.                BuddyDispid     =   196633
  400.                OrigLeft        =   1125
  401.                OrigTop         =   765
  402.                OrigRight       =   1380
  403.                OrigBottom      =   1095
  404.                Max             =   0
  405.                Min             =   -90
  406.                SyncBuddy       =   -1  'True
  407.                Wrap            =   -1  'True
  408.                BuddyProperty   =   65547
  409.                Enabled         =   -1  'True
  410.             End
  411.             Begin VB.Label Label10 
  412.                Caption         =   "Level:"
  413.                Height          =   240
  414.                Left            =   45
  415.                TabIndex        =   49
  416.                Top             =   810
  417.                Width           =   510
  418.             End
  419.             Begin VB.Label Label9 
  420.                Caption         =   "Time:"
  421.                Height          =   240
  422.                Left            =   45
  423.                TabIndex        =   48
  424.                Top             =   360
  425.                Width           =   510
  426.             End
  427.          End
  428.          Begin VB.CheckBox chAccuEnabled 
  429.             Caption         =   "Enabled"
  430.             Height          =   285
  431.             Left            =   180
  432.             TabIndex        =   45
  433.             Top             =   360
  434.             Width           =   1230
  435.          End
  436.       End
  437.       Begin VB.Frame Frame7 
  438.          Caption         =   "Auto Gain Control"
  439.          Height          =   1635
  440.          Left            =   3420
  441.          TabIndex        =   27
  442.          Top             =   450
  443.          Width           =   2265
  444.          Begin MSComCtl2.UpDown udAGCAttackTime 
  445.             Height          =   285
  446.             Left            =   1935
  447.             TabIndex        =   68
  448.             Top             =   1260
  449.             Width           =   240
  450.             _ExtentX        =   423
  451.             _ExtentY        =   503
  452.             _Version        =   393216
  453.             BuddyControl    =   "txtAGCAttackTime"
  454.             BuddyDispid     =   196639
  455.             OrigLeft        =   1935
  456.             OrigTop         =   1260
  457.             OrigRight       =   2190
  458.             OrigBottom      =   1545
  459.             Max             =   100
  460.             SyncBuddy       =   -1  'True
  461.             Wrap            =   -1  'True
  462.             BuddyProperty   =   0
  463.             Enabled         =   -1  'True
  464.          End
  465.          Begin VB.TextBox txtAGCAttackTime 
  466.             Height          =   285
  467.             Left            =   1395
  468.             TabIndex        =   66
  469.             Top             =   1260
  470.             Width           =   540
  471.          End
  472.          Begin MSComCtl2.UpDown udAGCHighLevel 
  473.             Height          =   285
  474.             Left            =   1935
  475.             TabIndex        =   65
  476.             Top             =   945
  477.             Width           =   255
  478.             _ExtentX        =   450
  479.             _ExtentY        =   503
  480.             _Version        =   393216
  481.             BuddyControl    =   "txtAGCHighLevel"
  482.             BuddyDispid     =   196640
  483.             OrigLeft        =   1935
  484.             OrigTop         =   990
  485.             OrigRight       =   2190
  486.             OrigBottom      =   1275
  487.             Max             =   0
  488.             Min             =   -90
  489.             SyncBuddy       =   -1  'True
  490.             Wrap            =   -1  'True
  491.             BuddyProperty   =   65547
  492.             Enabled         =   -1  'True
  493.          End
  494.          Begin VB.TextBox txtAGCHighLevel 
  495.             Height          =   285
  496.             Left            =   1395
  497.             TabIndex        =   63
  498.             Top             =   945
  499.             Width           =   540
  500.          End
  501.          Begin VB.TextBox txtAGCLowLevel 
  502.             Height          =   285
  503.             Left            =   1395
  504.             TabIndex        =   60
  505.             Top             =   630
  506.             Width           =   540
  507.          End
  508.          Begin VB.CheckBox chAutoGainControl 
  509.             Caption         =   "Enabled"
  510.             Height          =   285
  511.             Left            =   180
  512.             TabIndex        =   28
  513.             Top             =   270
  514.             Width           =   1485
  515.          End
  516.          Begin MSComCtl2.UpDown udAGCLowLevel 
  517.             Height          =   285
  518.             Left            =   1935
  519.             TabIndex        =   61
  520.             Top             =   630
  521.             Width           =   255
  522.             _ExtentX        =   450
  523.             _ExtentY        =   503
  524.             _Version        =   393216
  525.             BuddyControl    =   "txtAGCLowLevel"
  526.             BuddyDispid     =   196641
  527.             OrigLeft        =   1890
  528.             OrigTop         =   630
  529.             OrigRight       =   2145
  530.             OrigBottom      =   915
  531.             Max             =   0
  532.             Min             =   -90
  533.             SyncBuddy       =   -1  'True
  534.             Wrap            =   -1  'True
  535.             BuddyProperty   =   65547
  536.             Enabled         =   -1  'True
  537.          End
  538.          Begin VB.Label Label14 
  539.             Caption         =   "AttackTime:"
  540.             Height          =   240
  541.             Left            =   450
  542.             TabIndex        =   67
  543.             Top             =   1305
  544.             Width           =   825
  545.          End
  546.          Begin VB.Label Label8 
  547.             Caption         =   "High Level:"
  548.             Height          =   240
  549.             Left            =   450
  550.             TabIndex        =   64
  551.             Top             =   990
  552.             Width           =   825
  553.          End
  554.          Begin VB.Label Label13 
  555.             Caption         =   "Low Level:"
  556.             Height          =   240
  557.             Left            =   450
  558.             TabIndex        =   62
  559.             Top             =   675
  560.             Width           =   825
  561.          End
  562.       End
  563.       Begin VB.TextBox tSmooth 
  564.          Alignment       =   1  'Right Justify
  565.          Height          =   315
  566.          Left            =   -73020
  567.          TabIndex        =   25
  568.          Text            =   "0"
  569.          Top             =   1275
  570.          Width           =   540
  571.       End
  572.       Begin VB.CheckBox chSmooth 
  573.          Caption         =   "Smooth all edit boundaries by crossfading"
  574.          Height          =   255
  575.          Left            =   -74820
  576.          TabIndex        =   23
  577.          Top             =   810
  578.          Width           =   3270
  579.       End
  580.       Begin VB.Frame Frame1 
  581.          Caption         =   "Border"
  582.          Height          =   1230
  583.          Left            =   -74850
  584.          TabIndex        =   17
  585.          Top             =   1845
  586.          Width           =   2685
  587.          Begin VB.OptionButton opBorderType 
  588.             Caption         =   "Type 3"
  589.             Height          =   285
  590.             Index           =   3
  591.             Left            =   1575
  592.             TabIndex        =   22
  593.             Top             =   540
  594.             Width           =   825
  595.          End
  596.          Begin VB.OptionButton opBorderType 
  597.             Caption         =   "Type 0"
  598.             Height          =   285
  599.             Index           =   0
  600.             Left            =   135
  601.             TabIndex        =   21
  602.             Top             =   225
  603.             Width           =   825
  604.          End
  605.          Begin VB.OptionButton opBorderType 
  606.             Caption         =   "Type 2"
  607.             Height          =   285
  608.             Index           =   2
  609.             Left            =   135
  610.             TabIndex        =   20
  611.             Top             =   540
  612.             Width           =   825
  613.          End
  614.          Begin VB.OptionButton opBorderType 
  615.             Caption         =   "Type 1"
  616.             Height          =   285
  617.             Index           =   1
  618.             Left            =   1590
  619.             TabIndex        =   19
  620.             Top             =   225
  621.             Value           =   -1  'True
  622.             Width           =   825
  623.          End
  624.          Begin VB.OptionButton opBorderType 
  625.             Caption         =   "Type 4"
  626.             Height          =   285
  627.             Index           =   4
  628.             Left            =   135
  629.             TabIndex        =   18
  630.             Top             =   855
  631.             Width           =   825
  632.          End
  633.       End
  634.       Begin VB.Frame Frame4 
  635.          Caption         =   "Vertical scale"
  636.          Height          =   1755
  637.          Left            =   -72060
  638.          TabIndex        =   10
  639.          Top             =   360
  640.          Width           =   2685
  641.          Begin VB.OptionButton opVSOrien 
  642.             Caption         =   "Left"
  643.             Height          =   255
  644.             Index           =   2
  645.             Left            =   120
  646.             TabIndex        =   76
  647.             Top             =   1320
  648.             Width           =   855
  649.          End
  650.          Begin VB.OptionButton opVSOrien 
  651.             Caption         =   "Right"
  652.             Height          =   255
  653.             Index           =   1
  654.             Left            =   120
  655.             TabIndex        =   75
  656.             Top             =   1080
  657.             Value           =   -1  'True
  658.             Width           =   855
  659.          End
  660.          Begin VB.OptionButton opVStype 
  661.             Caption         =   "Normal Value"
  662.             Height          =   195
  663.             Index           =   2
  664.             Left            =   1350
  665.             TabIndex        =   16
  666.             Top             =   540
  667.             Width           =   1275
  668.          End
  669.          Begin VB.OptionButton opVStype 
  670.             Caption         =   "Samples"
  671.             Height          =   195
  672.             Index           =   1
  673.             Left            =   1350
  674.             TabIndex        =   15
  675.             Top             =   210
  676.             Width           =   960
  677.          End
  678.          Begin VB.CheckBox chVScaleGrid 
  679.             Caption         =   "Grid"
  680.             Height          =   195
  681.             Left            =   120
  682.             TabIndex        =   14
  683.             Top             =   630
  684.             Value           =   1  'Checked
  685.             Width           =   870
  686.          End
  687.          Begin VB.CheckBox chVScale 
  688.             Caption         =   "Enabled"
  689.             Height          =   195
  690.             Left            =   120
  691.             TabIndex        =   13
  692.             Top             =   315
  693.             Value           =   1  'Checked
  694.             Width           =   900
  695.          End
  696.          Begin VB.OptionButton opVStype 
  697.             Caption         =   "dB Value"
  698.             Height          =   195
  699.             Index           =   3
  700.             Left            =   1350
  701.             TabIndex        =   12
  702.             Top             =   870
  703.             Width           =   1275
  704.          End
  705.          Begin VB.CommandButton cmdFontV 
  706.             Caption         =   "Font..."
  707.             Height          =   330
  708.             Left            =   1800
  709.             TabIndex        =   11
  710.             Top             =   1320
  711.             Width           =   735
  712.          End
  713.       End
  714.       Begin VB.Frame Frame5 
  715.          Caption         =   "Horizontal scale"
  716.          Height          =   1395
  717.          Left            =   -74850
  718.          TabIndex        =   4
  719.          Top             =   360
  720.          Width           =   2685
  721.          Begin VB.OptionButton opHStype 
  722.             Caption         =   "Millisecond"
  723.             Height          =   195
  724.             Index           =   2
  725.             Left            =   1410
  726.             TabIndex        =   9
  727.             Top             =   630
  728.             Width           =   1215
  729.          End
  730.          Begin VB.OptionButton opHStype 
  731.             Caption         =   "Samples"
  732.             Height          =   195
  733.             Index           =   1
  734.             Left            =   1410
  735.             TabIndex        =   8
  736.             Top             =   330
  737.             Value           =   -1  'True
  738.             Width           =   975
  739.          End
  740.          Begin VB.CheckBox chHScale 
  741.             Caption         =   "Enabled"
  742.             Height          =   195
  743.             Left            =   120
  744.             TabIndex        =   7
  745.             Top             =   330
  746.             Value           =   1  'Checked
  747.             Width           =   930
  748.          End
  749.          Begin VB.CheckBox chHScaleGrid 
  750.             Caption         =   "Grid"
  751.             Height          =   195
  752.             Left            =   135
  753.             TabIndex        =   6
  754.             Top             =   630
  755.             Value           =   1  'Checked
  756.             Width           =   870
  757.          End
  758.          Begin VB.CommandButton cmdFontH 
  759.             Caption         =   "Font..."
  760.             Height          =   330
  761.             Left            =   1800
  762.             TabIndex        =   5
  763.             Top             =   960
  764.             Width           =   735
  765.          End
  766.       End
  767.       Begin VB.PictureBox Color 
  768.          Height          =   2460
  769.          Left            =   -70920
  770.          ScaleHeight     =   2400
  771.          ScaleWidth      =   1485
  772.          TabIndex        =   3
  773.          Top             =   540
  774.          Width           =   1545
  775.       End
  776.       Begin VB.CommandButton cmdColorChoice 
  777.          Caption         =   "Change Color"
  778.          Height          =   345
  779.          Left            =   -74865
  780.          TabIndex        =   2
  781.          Top             =   2655
  782.          Width           =   3765
  783.       End
  784.       Begin VB.ListBox lstColors 
  785.          Height          =   2010
  786.          ItemData        =   "frmSetup.frx":008C
  787.          Left            =   -74820
  788.          List            =   "frmSetup.frx":00CA
  789.          TabIndex        =   1
  790.          Top             =   510
  791.          Width           =   3765
  792.       End
  793.       Begin MSComCtl2.UpDown udUR 
  794.          Height          =   315
  795.          Left            =   -72885
  796.          TabIndex        =   35
  797.          Top             =   2295
  798.          Width           =   255
  799.          _ExtentX        =   450
  800.          _ExtentY        =   556
  801.          _Version        =   393216
  802.          Value           =   1
  803.          BuddyControl    =   "tUR"
  804.          BuddyDispid     =   196622
  805.          OrigLeft        =   2205
  806.          OrigTop         =   2205
  807.          OrigRight       =   2445
  808.          OrigBottom      =   2520
  809.          Max             =   10000
  810.          SyncBuddy       =   -1  'True
  811.          Wrap            =   -1  'True
  812.          BuddyProperty   =   65547
  813.          Enabled         =   -1  'True
  814.       End
  815.       Begin VB.Label Label4 
  816.          Caption         =   "Undo/Redo Count"
  817.          Height          =   225
  818.          Left            =   -74775
  819.          TabIndex        =   32
  820.          Top             =   2340
  821.          Width           =   1455
  822.       End
  823.       Begin VB.Label Label6 
  824.          Caption         =   "ms"
  825.          Height          =   225
  826.          Left            =   -72030
  827.          TabIndex        =   26
  828.          Top             =   1305
  829.          Width           =   435
  830.       End
  831.       Begin VB.Label Label5 
  832.          Caption         =   "Crossfade Time"
  833.          Height          =   225
  834.          Left            =   -74235
  835.          TabIndex        =   24
  836.          Top             =   1305
  837.          Width           =   1245
  838.       End
  839.    End
  840.    Begin MSComDlg.CommonDialog CommonDialog1 
  841.       Left            =   225
  842.       Top             =   1710
  843.       _ExtentX        =   847
  844.       _ExtentY        =   847
  845.       _Version        =   393216
  846.    End
  847. Attribute VB_Name = "frmSetup"
  848. Attribute VB_GlobalNameSpace = False
  849. Attribute VB_Creatable = False
  850. Attribute VB_PredeclaredId = True
  851. Attribute VB_Exposed = False
  852. Dim Colors As AudioEditor2Colors
  853. Dim Recorder As AudioEditor2Recorder
  854. Private Sub chAccuEnabled_Click()
  855.     frmDialog.AudioEditor1.Recorder.AccuEnabled = chAccuEnabled.Value
  856.     If chAccuEnabled.Value = 0 Then
  857.         Frame9.Enabled = False
  858.         Frame10.Enabled = False
  859.         
  860.         txtATime.Enabled = False
  861.         txtRTime.Enabled = False
  862.         txtALevel.Enabled = False
  863.         txtRLevel.Enabled = False
  864.         
  865.         udATime.Enabled = False
  866.         udRTime.Enabled = False
  867.         udALevel.Enabled = False
  868.         udRLevel.Enabled = False
  869.         
  870.         Label9.Enabled = False
  871.         Label10.Enabled = False
  872.         Label11.Enabled = False
  873.         Label12.Enabled = False
  874.     Else
  875.         Frame9.Enabled = True
  876.         Frame10.Enabled = True
  877.         
  878.         txtATime.Enabled = True
  879.         txtRTime.Enabled = True
  880.         txtALevel.Enabled = True
  881.         txtRLevel.Enabled = True
  882.         
  883.         udATime.Enabled = True
  884.         udRTime.Enabled = True
  885.         udALevel.Enabled = True
  886.         udRLevel.Enabled = True
  887.         
  888.         Label9.Enabled = True
  889.         Label10.Enabled = True
  890.         Label11.Enabled = True
  891.         Label12.Enabled = True
  892.     End If
  893. End Sub
  894. Private Sub chAutoGainControl_Click()
  895.     Recorder.AGCEnabled = chAutoGainControl.Value
  896.     If chAutoGainControl.Value = 0 Then
  897.         udAGCAttackTime.Enabled = False
  898.         txtAGCAttackTime.Enabled = False
  899.         udAGCLowLevel.Enabled = False
  900.         txtAGCLowLevel.Enabled = False
  901.         udAGCHighLevel.Enabled = False
  902.         txtAGCHighLevel.Enabled = False
  903.         'Label8.Enabled = False
  904.         frmDialog.Toolbar1.Buttons(31).Value = tbrUnpressed
  905.     Else
  906.         udAGCAttackTime.Enabled = True
  907.         txtAGCAttackTime.Enabled = True
  908.         udAGCLowLevel.Enabled = True
  909.         txtAGCLowLevel.Enabled = True
  910.         udAGCHighLevel.Enabled = True
  911.         txtAGCHighLevel.Enabled = True
  912.         frmDialog.Toolbar1.Buttons(31).Value = tbrPressed
  913.         'Label8.Enabled = True
  914.     End If
  915. End Sub
  916. Private Sub chHScale_Click()
  917.     frmDialog.AudioEditor1.ScaleX.Visible = chHScale.Value
  918. End Sub
  919. Private Sub chHScaleGrid_Click()
  920.     frmDialog.AudioEditor1.ScaleY.Grid = chHScaleGrid.Value
  921. End Sub
  922. Private Sub chVScale_Click()
  923.     frmDialog.AudioEditor1.ScaleY.Visible = chVScale.Value
  924. End Sub
  925. Private Sub chVScaleGrid_Click()
  926.     frmDialog.AudioEditor1.ScaleX.Grid = chVScaleGrid.Value
  927. End Sub
  928. Private Sub chExtraInfo_Click()
  929.     frmDialog.AudioEditor1.FileInfo.SaveExtraInfoEnabled = chExtraInfo.Value
  930. End Sub
  931. Private Sub chMB_Click()
  932.     frmDialog.AudioEditor1.MarkerBarEnabled = chMB.Value
  933. End Sub
  934. Private Sub chMS_Click()
  935.     frmDialog.AudioEditor1.MarkerBackgroundEnabled = chMS.Value
  936. End Sub
  937. Private Sub chSmooth_Click()
  938.     If chSmooth.Value = 1 Then
  939.         tSmooth.Enabled = True
  940.         udSmooth.Enabled = True
  941.     Else
  942.         tSmooth.Enabled = False
  943.         udSmooth.Enabled = False
  944.     End If
  945.     frmDialog.AudioEditor1.Transform.SmoothEnabled = chSmooth.Value
  946. End Sub
  947. Private Sub cmdColorChoice_Click()  'this sub starts on clicking the "Change Color" button
  948.     Dim OldCol, NewCol As OLE_COLOR 'declares the variable, responsible for the new and old colors
  949.     OldCol = lstColors.ItemData(lstColors.ListIndex)    'gets the oldcolor value
  950.     CommonDialog1.Color = OldCol    'sets the common dialog color to old color
  951.     CommonDialog1.DialogTitle = "Choice Color"  'sets the caption of the dialog window
  952.     CommonDialog1.Flags = cdlCCRGBInit Or cdlCCFullOpen 'choose the type of the dialog window
  953.     CommonDialog1.ShowColor 'show the color setup window
  954.     NewCol = CommonDialog1.Color    'gets the new color
  955.     lstColors.ItemData(lstColors.ListIndex) = NewCol
  956.     Color.BackColor = lstColors.ItemData(lstColors.ListIndex)   'changes the backcolor to the chosen one and set the color of the marked element of the list to the new color
  957.     If lstColors.ListIndex = 0 Then Colors.DigitalWaveform = lstColors.ItemData(0)
  958.     If lstColors.ListIndex = 1 Then Colors.AnalogWaveform = lstColors.ItemData(1)
  959.     If lstColors.ListIndex = 2 Then Colors.Background = lstColors.ItemData(2)
  960.     If lstColors.ListIndex = 3 Then Colors.CenterLine = lstColors.ItemData(3)
  961.     If lstColors.ListIndex = 4 Then Colors.SelectDigitalWaveform = lstColors.ItemData(4)
  962.     If lstColors.ListIndex = 5 Then Colors.SelectAnalogWaveform = lstColors.ItemData(5)
  963.     If lstColors.ListIndex = 6 Then Colors.SelectBackground = lstColors.ItemData(6)
  964.     If lstColors.ListIndex = 7 Then Colors.SelectCenterLine = lstColors.ItemData(7)
  965.     If lstColors.ListIndex = 8 Then Colors.Grid = lstColors.ItemData(8)
  966.     If lstColors.ListIndex = 9 Then Colors.Cursor = lstColors.ItemData(9)
  967.     If lstColors.ListIndex = 10 Then Colors.PlayCursor = lstColors.ItemData(10)
  968.     If lstColors.ListIndex = 11 Then Colors.Boundary = lstColors.ItemData(11)
  969.     If lstColors.ListIndex = 12 Then Colors.Scales = lstColors.ItemData(12)
  970.     If lstColors.ListIndex = 13 Then Colors.Font = lstColors.ItemData(13)
  971.     If lstColors.ListIndex = 14 Then Colors.CueMarker = lstColors.ItemData(14)
  972.     If lstColors.ListIndex = 15 Then Colors.RangeMarker = lstColors.ItemData(15)
  973.     If lstColors.ListIndex = 16 Then Colors.RangeMarkerBackground = lstColors.ItemData(16)
  974. End Sub
  975. Private Sub cmdFontH_Click()
  976.     Dim font1 As New StdFont    'declares the variable of the font type
  977.     CommonDialog1.DialogTitle = "Choice Font"   'sets the dialog window caption
  978.     CommonDialog1.Flags = cdlCFBoth 'and the type of the dialog window
  979.     Set font1 = frmDialog.AudioEditor1.ScaleX.Font 'gets the font1
  980.     'setting up the font1 parameters for the dialog window
  981.     CommonDialog1.FontName = font1.Name
  982.     CommonDialog1.FontBold = font1.Bold
  983.     CommonDialog1.FontItalic = font1.Italic
  984.     CommonDialog1.FontSize = font1.Size
  985.     CommonDialog1.FontStrikethru = font1.Strikethrough
  986.     CommonDialog1.FontUnderline = font1.Underline
  987.     CommonDialog1.ShowFont  'and show the dialog window to set up the font
  988.     'sets the new font1 parameters
  989.     font1.Name = CommonDialog1.FontName
  990.     font1.Bold = CommonDialog1.FontBold
  991.     font1.Italic = CommonDialog1.FontItalic
  992.     font1.Size = CommonDialog1.FontSize
  993.     font1.Strikethrough = CommonDialog1.FontStrikethru
  994.     font1.Underline = CommonDialog1.FontUnderline
  995.     Set frmDialog.AudioEditor1.ScaleX.Font = font1  'set the new font
  996. End Sub
  997. Private Sub cmdFontV_Click()
  998.     Dim font2 As New StdFont    'declares the variable of the font type
  999.     CommonDialog1.DialogTitle = "Choice Font"   'sets the common dialogs caption
  1000.     CommonDialog1.Flags = cdlCFBoth 'sets the type of the dialog interface
  1001.     Set font2 = frmDialog.AudioEditor1.ScaleY.Font  'gets the font2 value
  1002.     'setting up the font1 parameters for the dialog window
  1003.     CommonDialog1.FontName = font2.Name
  1004.     CommonDialog1.FontBold = font2.Bold
  1005.     CommonDialog1.FontItalic = font2.Italic
  1006.     CommonDialog1.FontSize = font2.Size
  1007.     CommonDialog1.FontStrikethru = font2.Strikethrough
  1008.     CommonDialog1.FontUnderline = font2.Underline
  1009.     CommonDialog1.ShowFont  'and show the dialog window to set up the font
  1010.     'sets the new font2 parameters
  1011.     font2.Name = CommonDialog1.FontName
  1012.     font2.Bold = CommonDialog1.FontBold
  1013.     font2.Italic = CommonDialog1.FontItalic
  1014.     font2.Size = CommonDialog1.FontSize
  1015.     font2.Strikethrough = CommonDialog1.FontStrikethru
  1016.     font2.Underline = CommonDialog1.FontUnderline
  1017.     Set frmDialog.AudioEditor1.ScaleY.Font = font2 'set the new font
  1018. End Sub
  1019. Private Sub Form_Load() 'this sub starts on loading the current form
  1020.     Set Colors = frmDialog.AudioEditor1.Colors
  1021.     Set Recorder = frmDialog.AudioEditor1.Recorder
  1022.     'forms the list of items
  1023.     lstColors.ItemData(0) = Colors.DigitalWaveform
  1024.     lstColors.ItemData(1) = Colors.AnalogWaveform
  1025.     lstColors.ItemData(2) = Colors.Background
  1026.     lstColors.ItemData(3) = Colors.CenterLine
  1027.     lstColors.ItemData(4) = Colors.SelectDigitalWaveform
  1028.     lstColors.ItemData(5) = Colors.SelectAnalogWaveform
  1029.     lstColors.ItemData(6) = Colors.SelectBackground
  1030.     lstColors.ItemData(7) = Colors.SelectCenterLine
  1031.     lstColors.ItemData(8) = Colors.Grid
  1032.     lstColors.ItemData(9) = Colors.Cursor
  1033.     lstColors.ItemData(10) = Colors.PlayCursor
  1034.     lstColors.ItemData(11) = Colors.Boundary
  1035.     lstColors.ItemData(12) = Colors.Scales
  1036.     lstColors.ItemData(13) = Colors.Font
  1037.     lstColors.ItemData(14) = Colors.CueMarker
  1038.     lstColors.ItemData(15) = Colors.RangeMarker
  1039.     lstColors.ItemData(16) = Colors.RangeMarkerBackground
  1040.     lstColors.ListIndex = 0 'sets the chosen item to the zero numbered
  1041.     opBorderType(frmDialog.AudioEditor1.TypeBorder).Value = True     'marks the Type0
  1042.     opHStype(frmDialog.AudioEditor1.ScaleX.Type).Value = True    'Type3
  1043.     opVStype(frmDialog.AudioEditor1.ScaleY.Type).Value = True    'and Type4 radio buttons in the "Border" frame
  1044.     opVSOrien(frmDialog.AudioEditor1.ScaleY.Orientation).Value = True
  1045.     chHScaleGrid.Value = Abs(frmDialog.AudioEditor1.ScaleY.Grid)  'Sets the value of the "Grid" and "Enabled" checkboxes in the "Vertical" and "Horizontal" frames
  1046.     chVScaleGrid.Value = Abs(frmDialog.AudioEditor1.ScaleX.Grid)
  1047.     chHScale.Value = Abs(frmDialog.AudioEditor1.ScaleX.Visible)
  1048.     chVScale.Value = Abs(frmDialog.AudioEditor1.ScaleY.Visible)
  1049.     tDir.Text = frmDialog.AudioEditor1.TempDirectory
  1050.     tPR.Text = frmDialog.AudioEditor1.DeviceInput.BufferSize
  1051.     tPRt.Text = frmDialog.AudioEditor1.DeviceInput.TimerInterval
  1052.     tPRc.Text = frmDialog.AudioEditor1.DeviceInput.BufferCount
  1053.     udUR.Value = frmDialog.AudioEditor1.UndoRedoCount
  1054.     chExtraInfo.Value = Abs(frmDialog.AudioEditor1.FileInfo.SaveExtraInfoEnabled)
  1055.     chSmooth.Value = Abs(frmDialog.AudioEditor1.Transform.SmoothEnabled)
  1056.     udSmooth.Value = frmDialog.AudioEditor1.Transform.SmoothTime
  1057.     chMB.Value = Abs(frmDialog.AudioEditor1.MarkerBarEnabled)
  1058.     chMS.Value = Abs(frmDialog.AudioEditor1.MarkerBackgroundEnabled)
  1059.     opRecVisType(frmDialog.AudioEditor1.RecordVisualizationType).Value = True
  1060.     chAccuEnabled.Value = frmDialog.AudioEditor1.Recorder.AccuEnabled
  1061.     udATime.Value = Recorder.AccuAttackTime
  1062.     udRTime.Value = Recorder.AccuReleaseTime
  1063.     udALevel.Value = Recorder.AccuAttackLevel
  1064.     udRLevel.Value = Recorder.AccuReleaseLevel
  1065.     udAGCLowLevel.Value = Recorder.AGCLowLevel
  1066.     udAGCHighLevel.Value = Recorder.AGCHighLevel
  1067.     udAGCAttackTime.Value = Recorder.AGCAttackTime
  1068.     chAutoGainControl.Value = Abs(Recorder.AGCEnabled)
  1069.     chAccuEnabled_Click
  1070. End Sub
  1071. Private Sub lstColors_Click()   'this sub starts on clicking on one of the list elements
  1072.     Color.BackColor = lstColors.ItemData(lstColors.ListIndex)   'set the back color to the current, owned by the chosen element
  1073. End Sub
  1074. Private Sub opOrientation_Click(Index As Integer)
  1075. End Sub
  1076. Private Sub opRecVisType_Click(Index As Integer)
  1077.     frmDialog.AudioEditor1.RecordVisualizationType = Index
  1078. End Sub
  1079. Private Sub opBorderType_Click(Index As Integer) 'this sub starts on clicking the "Type" radio button
  1080.     frmDialog.AudioEditor1.TypeBorder = Index   'sets the border type to the index valuee
  1081. End Sub
  1082. Private Sub opHStype_Click(Index As Integer) 'this sub starts on clicking the radio buttons in the "Horizontal" frame
  1083.     frmDialog.AudioEditor1.ScaleX.Type = Index  'sets the scale x type to the index value
  1084. End Sub
  1085. Private Sub opVSOrien_Click(Index As Integer)
  1086.     frmDialog.AudioEditor1.ScaleY.Orientation = Index
  1087. End Sub
  1088. Private Sub opVStype_Click(Index As Integer) 'this sub starts on clicking the radio buttons in the "Vertical" frame
  1089.     frmDialog.AudioEditor1.ScaleY.Type = Index 'sets the scale x type to the index value
  1090. End Sub
  1091. Private Sub tDir_KeyPress(KeyAscii As Integer)
  1092.     If KeyAscii = 13 Then
  1093.         frmDialog.AudioEditor1.TempDirectory = tDir.Text
  1094.     End If
  1095. End Sub
  1096. Private Sub tPR_KeyPress(KeyAscii As Integer)
  1097.     If KeyAscii = 13 Then
  1098.         frmDialog.AudioEditor1.DeviceInput.BufferSize = tPR.Text
  1099.         frmDialog.AudioEditor1.DeviceOutput.BufferSize = tPR.Text
  1100.     End If
  1101. End Sub
  1102. Private Sub tPRc_KeyPress(KeyAscii As Integer)
  1103.     If KeyAscii = 13 Then
  1104.         frmDialog.AudioEditor1.DeviceInput.BufferCount = tPRc.Text
  1105.         frmDialog.AudioEditor1.DeviceOutput.BufferCount = tPRc.Text
  1106.     End If
  1107. End Sub
  1108. Private Sub tPRt_KeyPress(KeyAscii As Integer)
  1109.     If KeyAscii = 13 Then
  1110.         frmDialog.AudioEditor1.DeviceInput.TimerInterval = tPRt.Text
  1111.         frmDialog.AudioEditor1.DeviceOutput.TimerInterval = tPRt.Text
  1112.     End If
  1113. End Sub
  1114. Private Sub udAGCHighLevel_Change()
  1115.     Recorder.AGCHighLevel = udAGCHighLevel.Value
  1116. End Sub
  1117. Private Sub udAGCLowLevel_Change()
  1118.     Recorder.AGCLowLevel = udAGCLowLevel.Value
  1119. End Sub
  1120. Private Sub udAGCAttackTime_Change()
  1121.     Recorder.AGCAttackTime = udAGCAttackTime.Value
  1122. End Sub
  1123. Private Sub udALevel_Change()
  1124.     Recorder.AccuAttackLevel = udALevel.Value
  1125. End Sub
  1126. Private Sub udATime_Change()
  1127.     Recorder.AccuAttackTime = udATime.Value
  1128. End Sub
  1129. Private Sub udRLevel_Change()
  1130.     Recorder.AccuReleaseLevel = udRLevel.Value
  1131. End Sub
  1132. Private Sub udRTime_Change()
  1133.     Recorder.AccuReleaseTime = udRTime.Value
  1134. End Sub
  1135. Private Sub udSmooth_Change()
  1136.     frmDialog.AudioEditor1.Transform.SmoothTime = udSmooth.Value
  1137. End Sub
  1138. Private Sub udUR_DownClick()
  1139.     frmDialog.AudioEditor1.UndoRedoCount = udUR.Value
  1140. End Sub
  1141. Private Sub udUR_UpClick()
  1142.     frmDialog.AudioEditor1.UndoRedoCount = udUR.Value
  1143. End Sub
  1144.